home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
text
/
misc
/
2b_Ort.lha
/
Ort
/
ARexx
/
SprBlok.ced
< prev
next >
Wrap
Text File
|
1999-02-10
|
1KB
|
68 lines
/*
$ver: SprBlok.ced 1.2 (03.12.98) BLABLA PRODUCT
(c) 1998 Siumot/BlaBla
Ten skrypt jest przeznaczony dla programu CED. Powoduje on korektë
programem Ort zaznaczonego bloku tekstowego. Podczas korygowania, sprawdzany
dokument w programie CED jest zablokowany. Skrypt najlepiej podîoûyê
pod klawisz funkcyjny.
UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu instalatorem Orta,
to musisz dopisaê nastëpujâcâ linië:
ORTFILENAME=ôcieûka dostëpu/ort
Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
*/
OPTIONS RESULTS
IF ~SHOW('P', 'rexx_ced') THEN EXIT 1
ADDRESS "rexx_ced"
IF ~SHOW('P', '2b_Ort_rexx') THEN DO
IF ORTFILENAME='ORTFILENAME' THEN DO
OKAY1 'Program Ort nie jest uruchomiony.'
EXIT
END
ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'"'
ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
END
Status NumChanges
if RESULT ~= 0 then Save
Status ClipUnit
cedclip=result
SET CLIPBOARD UNIT 254
Cut Blok
IF result=0 THEN DO
okay1 'Nie zaznaczyîeô bloku do korekty.'
SET CLIPBOARD UNIT cedclip
EXIT 0
END
ADDRESS '2b_Ort_rexx'
Info Hide
ortsleep=RESULT
IF ortsleep=1 THEN Show
PREFS CLIPBOARD
ortclip=result
PREFS CLIPBOARD 254
ORT TO FRONT
LOAD FROM CLIP
IF rc=0 THEN DO
CORRECTION
IF ~(rc=5) THEN SAVE TO CLIP
END
PREFS CLIPBOARD ortclip
IF ortsleep=1 THEN Hide
ADDRESS "rexx_ced"
Paste
CedToFront
Set Clipboard Unit cedclip
EXIT 0